Imports System.Xml
Imports System.Data.SqlClient
Public Class dContacto

    Public Function Insertar(ByVal CodigoEmpresa As String, _
                              ByVal NombreYApellido As String, _
                              ByVal TipoEmpresa As String, _
                              ByVal FechaDeNacimiento As String, _
                              ByVal Mail As String, _
                              ByVal Telefono As String, _
                              ByVal Estado As String) As Boolean

        Dim Parametros As ArrayList = New ArrayList

        If CodigoEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEmpresa", CodigoEmpresa))
        End If
        If TipoEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoTEmpresa", TipoEmpresa))
        End If
        If NombreYApellido <> "" Then
            Parametros.Add(New SqlParameter("@pENombreYApellido", NombreYApellido))
        End If
        If FechaDeNacimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeNacimiento", FechaDeNacimiento))
        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEEMail", Mail))
        End If
        If Telefono <> "" Then
            Parametros.Add(New SqlParameter("@pETelefono", Telefono))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return dConexion.ABM("STORE_TblContactoAlta", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoContacto As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        Parametros.Add(New SqlParameter("@pECodigoContacto", CodigoContacto))
        Return dConexion.ABM("STORE_TblContactoELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoContacto As String, _
                              ByVal CodigoEmpresa As String, _
                              ByVal CodigoTEmpresa As String, _
                              ByVal NombreYApellido As String, _
                              ByVal Direccion As String, _
                              ByVal FechaDeNacimiento As String, _
                              ByVal Mail As String, _
                              ByVal Telefono As String, _
                              ByVal Estado As String) As Boolean

        Dim Parametros As ArrayList = New ArrayList
        If CodigoContacto <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoContacto", CodigoContacto))

        End If
        If CodigoEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEmpresa", CodigoEmpresa))

        End If

        If CodigoTEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoTEmpresa", CodigoTEmpresa))

        End If
        If NombreYApellido <> "" Then
            Parametros.Add(New SqlParameter("@pENombreYApellido", NombreYApellido))

        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))

        End If
        If FechaDeNacimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeNacimiento", FechaDeNacimiento))

        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEEMail", Mail))

        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pETelefono", Telefono))

        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))

        End If
        Return (dConexion.ABM("STORE_TblContactoModificar", Parametros))
    End Function
    Public Function BuscarFiltrado(ByVal CodigoContacto As String, _
                                      ByVal CodigoEmpresa As String, _
                                      ByVal NombreYApellido As String, _
                                      ByVal CodigoTEmpresa As String, _
                                      ByVal Direccion As String, _
                                      ByVal FechaDeNacimiento As String, _
                                      ByVal Mail As String, _
                                      ByVal Telefono As String, _
                                      ByVal Estado As String) As DataSet

        Dim Parametros As ArrayList = New ArrayList


        If CodigoContacto <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoContacto", CodigoContacto))

        End If
        If CodigoEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoEmpresa", CodigoEmpresa))

        End If

        If CodigoTEmpresa <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoTEmpresa", CodigoTEmpresa))

        End If
        If NombreYApellido <> "" Then
            Parametros.Add(New SqlParameter("@pENombreYApellido", NombreYApellido))

        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pEDireccion", Direccion))

        End If
        If FechaDeNacimiento <> "" Then
            Parametros.Add(New SqlParameter("@pEFechaDeNacimiento", FechaDeNacimiento))

        End If
        If Mail <> "" Then
            Parametros.Add(New SqlParameter("@pEEMail", Mail))

        End If
        If Direccion <> "" Then
            Parametros.Add(New SqlParameter("@pETelefono", Telefono))

        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))

        End If

        Return dConexion.Consultar("STORE_TblContactoBuscarFiltrado", Parametros)

    End Function
End Class
